home *** CD-ROM | disk | FTP | other *** search
/ MacHome 1999 February/March / MacHome CD (February and March 1999).iso / Edutainment / INFOHIGHWAYDEMOS / demo / GEN.DCR / 00576.ls < prev    next >
Encoding:
Text File  |  1998-12-02  |  1.1 KB  |  59 lines
  1. on enterFrame
  2.   global ActiveHZone
  3.   set ActiveHZone to "20"
  4.   set ro to rollOver()
  5.   set thereIsRoll to 0
  6.   if (ro >= 45) and (ro <= 51) then
  7.     set thereIsRoll to 1
  8.     cursor([member "mousePointer", member "mousePointerMask"])
  9.   end if
  10.   if ro = 3 then
  11.     set thereIsRoll to 1
  12.     cursor([member "mousePointer", member "mousePointerMask"])
  13.   end if
  14.   if thereIsRoll = 0 then
  15.     cursor(-1)
  16.   end if
  17.   updateStage()
  18. end
  19.  
  20. on exitFrame
  21.   set ro to rollOver()
  22.   case ro of
  23.     30:
  24.       initSprites()
  25.       puppetSprite(1, 1)
  26.       puppetSprite(2, 1)
  27.       go("OrdinateurVOnLogo1")
  28.     31:
  29.       initSprites()
  30.       puppetSprite(1, 1)
  31.       puppetSprite(2, 1)
  32.       go("OrdinateurVOnLogo2")
  33.     32:
  34.       initSprites()
  35.       puppetSprite(1, 1)
  36.       puppetSprite(2, 1)
  37.       go("OrdinateurVOnLogo3")
  38.     33:
  39.       initSprites()
  40.       puppetSprite(1, 1)
  41.       puppetSprite(2, 1)
  42.       go("OrdinateurVOnLogo4")
  43.     34:
  44.       initSprites()
  45.       puppetSprite(1, 1)
  46.       puppetSprite(2, 1)
  47.       go("OrdinateurVOnLogo5")
  48.     otherwise:
  49.       go(the frame)
  50.   end case
  51. end
  52.  
  53. on mouseUp
  54.   cursor(-1)
  55.   initSprites()
  56.   playThisSound("hyplien2", 4)
  57.   go("OrdinateurS4")
  58. end
  59.